home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Freeware / ReNamer 5.40 / ReNamer.exe / {app} / Scripts / Index filenames.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2007-02-13  |  76 b   |  7 lines
  1. var
  2.   I: Integer;
  3.  
  4. begin
  5.   I := I + 1;
  6.   FileName := IntToStr(I);
  7. end.